#!/usr/local/bin/perl

#
# by: Mike Smith, 2008

use IPC::Open2;

local (*READ, *WRITE);
my $pid = open2(\*READ, \*WRITE, "gnuplot" );

print WRITE "set size 0.65, 0.575\n";
print WRITE "set terminal latex\n";
#print WRITE "set style data histogram\n";
#print WRITE "set style histogram cluster gap 1\n";
print WRITE "set style fill solid border -1\n";
print WRITE "set boxwidth 0.9\n";
print WRITE "set yrange[0:1.1]\n";
print WRITE "set xrange[-0.01:1]\n";
print WRITE "set xtics nomirror\n";
print WRITE "set ylabel '\\begin{sideways}\$concept(w)\$\\end{sideways}'\n";
print WRITE "set xlabel '\$\\phi(w)\$'\n";
print WRITE "set ytics nomirror\n";

print WRITE "set key left top\n";
print WRITE "unset key\n";
print WRITE "set output \'conceptScoring.tex\'\n";
print WRITE "plot \'conceptsScoring.txt\' us 1:2 with lines lw 6\n";
